home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 32.zip / BS1 part 32 / Pagesetter II v1.0 util d2.adf / Misc / DiskMount < prev    next >
AmigaDOS Script File  |  1989-11-22  |  1KB  |  51 lines
  1. .key english/A,check/A,asn/A
  2. .bra {
  3. .ket }
  4.  
  5. ; :ts=3
  6. ; DiskMount - Ask user for a diskette.
  7. ;
  8. ; Asks the user to put a given diskette into df0:, and then gives it
  9. ; a name which won't conflict with any standard assignments.
  10. ;
  11. ; Inputs:
  12. ;    english  What to ask the user for
  13. ;    check        The volume name the diskette must have
  14. ;    asn     The Assign name to give it
  15.  
  16. ; If we already know how to find the requested disk, don't specifically
  17. ; ask for it again in df0:.
  18. ; Use ASSIGN EXISTS because we only care whether the name is known, not
  19. ; whether the diskette is accessible at the moment (if it isn't a DOS
  20. ; requester will remedy the situation).
  21.  
  22. ASSIGN >NIL: {asn} exists
  23. if NOT WARN
  24.     SKIP havedisk
  25. ENDIF
  26.  
  27. LAB volagain
  28.  
  29. ECHO "Please insert the PageSetterII *E[;1m{english}*E[m disk " NOLINE
  30. ECHO "into *E[;1mdrive 0*E[m.*NHit RETURN when ready, or N to abort:  " NOLINE
  31. INSTUTIL ask ""
  32. IF WARN
  33.     SKIP wrapup
  34. ENDIF
  35.  
  36. ASSIGN PSInstVCheck: ""
  37. CD df0:
  38. CD >RAM:PSInstall/VolumeCheck
  39. CD PSInstVCheck:
  40. ASSIGN PSInstVCheck:
  41.  
  42. C:SETENV >NIL: <RAM:PSInstall/VolumeCheck PSInstVC ?
  43. IF NOT $PSInstVC eq {check}
  44.     ECHO "*NWrong disk.  Try again."
  45.     SKIP BACK volagain
  46. ENDIF
  47.  
  48. ASSIGN {asn} df0:        ; Hook we can use when disk has been removed
  49.  
  50. LAB havedisk
  51.